(define d-1 (let ((a 1) (b 2) (c 3))
	      (+ a b c)))
